Sub 직원추가()

    Dim D열_마지막셀 As Range
    
    Set D열_마지막셀 = Cells(Rows.Count, "D").End(xlUp)
    
    Range("B5", D열_마지막셀).Copy Range("G7")

End Sub